home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / basic / ds40bpds.zip / WINDDEMO.BAS < prev   
BASIC Source File  |  1992-01-12  |  976b  |  29 lines
  1. ' $INCLUDE: 'DOORSORC.INT'
  2. PROGNAME$ = "Window Demo"  ' Setup DS Program variables
  3. RELEASE$ = "1.0"
  4. CALL ClrScrn               ' Update screen and close config file
  5. CLOSE #1
  6.  
  7. DIM Text$(3)
  8.     Text$(1) = "This is a demo of..."             ' Setup text to be printed
  9.     Text$(2) = "WINDOWS in Door Source 2.0"
  10.     Text$(3) = "This can be slow if it's a BIG window"
  11.  
  12. A$ = "And now for some WINDOWS!": CALL Center(A$)  ' Print out a little
  13. CALL Send(A$, No, Yes, 10)                         ' message
  14.  
  15. CALL Windows(10, 10, 15, 70, 14, 1, 1, No)
  16. '            ULR ULC LRR LRC |  |  |   |
  17. '                            |  |  |   Shadow
  18. '                            |  |  Border type
  19. '                            |  Background
  20. '                            Foreground
  21.  
  22. FOR X = 1 TO 3
  23.    CALL WindowPrint(Text$(X), 10 + X, 11, 11, 1)   ' Display text in window
  24. NEXT X
  25.  
  26. I1$ = "PRESS": CALL ScriptCMD                      ' Wait for a key press
  27. CALL ExitDoor
  28.  
  29.